МІНІСТЕРСТВО ОСВІТИ УКРАЇНИ Національний Університет “Львівська політехніка”  EMBED PBrush 
 Ознайомлення з компонентами для вводу-виводу у середовищі візуального програмування Delphi. ІНСТРУКЦІЯ до лабораторної роботи № 3 з курсу “Застосування засобів об’єктно-орієнтованого програмування в лінгвістичних задачах” спеціальності 07.030505 “Прикладна лінгвістика”. ЗАТВЕРДЖЕНО На засіданні кафедри “Системи Автоматизованого проектування” Протокол №___ від _________ Львів - 2004 Мета роботи: Продовжити знайомство з основними інструментами Delphi. Познайомитися з компонентами для вводу-виводу. Одержати практичні навички створення простих додатків. Основний зміст Ми розробимо програму для обчислення коренів квадратного рівняння ax2+bx+c=0 з довільними коефіцієнтами(a≠0). Вивчити і використовувати компоненти TLabel, TEdit, TMemo, TButton. Теоретичні відомості. Мітка - компонент TLabel Сторінка Палітри Компонентів: Standard. Ієрархія: TObject→TPersistent→Component→TControl→TGraphicControl→ TCustomLabel→TLabel Мітки призначені для розміщення на екрані текстової інформації, що містить різні пояснення, назви, заголовки і т.д. Мітки в Delphi є екземплярами класу TLabel. Клас TLabel є нащадком класу TCustomLabel, у якому визначені основні характеристики влучна. Цей клас є безпосереднім нащадком класу TGraphicControl і, отже, реагує тільки на події від миші. Основні властивості: type TAlignment = (taLeftJustify, taRightJustify, taCenter); property Alignment: TAlignment; Властивість обумовлює вирівнювання тексту в компоненті. Воно може приймати наступні значення: taLeftJustify - вирівнювання по лівому краю(за замовчуванням); taRightJustify - вирівнювання по правому краю; taCenter - вирівнювання по центрі. property AutoSize: Boolean; Якщо значення властивості дорівнює True, то буде автоматично змінюватися ширина і висота мітки відповідно до розміщеного в ній текстом. type TTextLayout = (tlTop, tlCenter, tlBottom); property Layout: TTextLayout; Властивість визначає положення тексту мітки по вертикалі: tlTop - розташований у верхній частині; tlCenter - розташований у центрі; tlBottom - розташований унизу. property Transparent: Boolean; Якщо властивість має значення True, то тіло мітки буде прозорим стосовно інших компонентів. За замовчуванням має значення False. property WordWrap: Boolean; Якщо властивість має значення True, то після заповнення поточної рядка буде відбуватися перенос тексту на новий рядок. За замовчуванням має значення False. Для введення багатострічкових написів треба задати AutoSize = False, WordWrap = True і установити придатні розміри мітки. Властивості Alignment і WordWrap не працюють, якщо AutoSize = True. Основним для мітки є властивість Caption, наслідуване від класу TControl. property caption: string; Саме сюди поміщається текст, що буде виводитися на екран. Приклад 1: Вивід значень масиву цілих чисел. Label1.Caption: = IntToStr (a[1]) ; for k:=2 to size do Label 1.Caption:= Label1.Caption + ',' + IntToStr (a[k]); property FocusControl: TWinControl; Містить ім'я віконного компонента, що зв'язаний з міткою акселератором. Т.о. вибір компонента TLabel приведе до переміщення фокуса на зв'язаний з ним компонент. У цьому випадку мітку також можна використовувати, щоб установити фокус у нащадка TWinControl. Щоб виконати це, потрібно установити у властивості FocusControl ім'я відповідного нащадка TWinControl і визначити гарячу клавішу у властивості Caption (& буква). property ShowAccelChar:boolean; Визначає, для чого використовується символ & у властивості Caption: для визначення гарячої чи клавіші просто як символ. Але навіть коли властивість ShowAccelChar = True, можна відобразити амперсенд у caption, подвоївши його - &&. Приклад 2: Щоб вивести рядок "Delphi & Windows", треба присвоїти властивості caption значення Delphi && Windows. Якщо властивість ShowAccelChar = False, властивість FocusControl не...